home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 113 / 113.d81 / bt boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  75 lines
  1. 100 print"[147]":poke53280,0:poke53281,0
  2. 105 dv=peek(186):ifdv<8thendv=8
  3. 106 poke14270,dv:poke14271,0
  4. 110 gosub60000
  5. 130 sys57812"bt.font",dv,0:poke780,0:poke781,192:poke782,55:sys65493
  6. 180 poke53272,(peek(53272)and240)or14
  7. 185 printchr$(14)"[147]":gosub51000
  8. 186 dv=peek(186):ifdv<8thendv=8
  9. 190 printtab(9)"f1 - game instructions"
  10. 200 printtab(9)"f3 - play game........"
  11. 205 printtab(9)"f5 - screen designer.."
  12. 210 printtab(9)"f7 - exit to loadstar."
  13. 220 poke198,0:wait198,1:geta$
  14. 230 ifa$="[133]"then300
  15. 240 ifa$="[134]"then400
  16. 245 ifa$="[135]"then700
  17. 250 ifa$="[136]"then500
  18. 260 goto220
  19. 300 ifpeek(14271)=1then330
  20. 301 poke14271,1
  21. 303 print"[147]"tab(8)"loading game instructions."
  22. 310 sys57812"bt.inst",dv,0:poke780,0:poke781,0:poke782,20:sys65493
  23. 320 sys57812"t.game",dv,0:poke780,0:poke781,0:poke782,128:sys65493
  24. 330 gosub52000:sys5120:goto185
  25. 400 ifpeek(14271)=2then450
  26. 401 poke14271,2
  27. 405 print"[147]"tab(7)"loading game - please wait."
  28. 410 sys57812"bt.game",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  29. 420 sys57812"bt.highs",dv,0:poke780,0:poke781,0:poke782,144:sys65493
  30. 430 sys57812"bt.dsphi",dv,0:poke780,0:poke781,208:poke782,151:sys65493
  31. 450 sys16384:goto185
  32. 460 rem
  33. 500 print"[147]":poke53281,0:poke53272,23
  34. 510 fori=8to9:open15,i,15,"r0:hello connect=hello connect":input#15,er:close15
  35. 520 ifer=63thendu=i:i=9:next:goto540
  36. 530 next:end
  37. 540 print"[147][144]load"chr$(34)"hello connect"chr$(34)","du
  38. 550 print"run"
  39. 570 poke631,13:poke632,13:poke198,2:end
  40. 600 printtab(15)"disk error!"
  41. 610 printtab(8)"hit any key to try again."
  42. 620 poke198,0:wait198,1:goto185
  43. 700 ifpeek(14271)=3then730
  44. 701 poke14271,3
  45. 702 print"[147]"tab(9)"loading screen designer."
  46. 703 printtab(13)"- please wait -"
  47. 705 sys57812"bt.inst",dv,0:poke780,0:poke781,0:poke782,20:sys65493
  48. 710 sys57812"bt.builder",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  49. 720 sys57812"t.construct",dv,0:poke780,0:poke781,0:poke782,128:sys65493
  50. 730 sys16384:goto185
  51. 740 rem
  52. 10000 open15,8,15,"s0:bt boot":close15:save"bt boot",8:end
  53. 51000 print""
  54. 51001 printtab(0)"[129]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  55. 51005 printtab(0)"[158]b e n e a t h   t h e   t e n e m e n t"
  56. 51006 printtab(0)"[129]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  57. 51010 printtab(13)"[158]by gus vakalis."
  58. 51020 return
  59. 51030 rem
  60. 52000 print"[147]":poke214,22:print
  61. 52060 printtab(8)"[159] cursor up/down [159]to page. "
  62. 52070 printtab(9)"press return [159]to begin."
  63. 52080 return
  64. 60000 print"":z$=" [152]                                      ":poke214,10:print
  65. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  66. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  67. 60030 z$(0)="[194][197][206][197][193][212][200][160][212][200][197][160][212][197][206][197][205][197][206][212]":z$(1)="by [199]us [214]akalis"
  68. 60040 z$(2)="([195]) 1993 by [211]oftdisk [208]ublishing"+chr$(13)
  69. 60050 z$(3)="[212]his program is the copyrighted work
  70. 60060 z$(4)[178]"of (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$.  right$t is not"
  71. 60070 z$(5)[178]"shareware or in the public domain."
  72. 60080 z$(6)[178]"(NULL)eport illegal distribution of":z$(7)[178]"this program by calling"
  73. 60090 z$(8)[178]"1-800-831-2694 or 1-318-221-8718.":[151]214,12:[153]
  74. 60100 [129]i[178]0[164]8:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  75.